'Test oh aj Sort Tests.txt b+ mod for oh 2021-03-07
' build test strings and numbers and display
[
	cnt = a[cnt,1]
	jmp gt[cnt,20]
	
	'no made up string should be longer than 11 chars
	rLen = a[int[rnd[10]],2]
	
	' change variable name from b to bstring
	bString = mt
	cnt2 = 0
	[
		cnt2 = a[cnt2,1]
		jmp gt[cnt2,rLen]
		
		' bstring was b and rNumber was r
		' b was getting B or R from this random choosing of letter 
		' and substituting back current value of b or r variable!!! Yikes
		' no wonder bstring had numbers inserted or came out extra long!!!
		bString = bnd[bString,chr[a[int[rnd[26]],65]]]
	]
	set AstringS;cnt;bString
	' change variable r to rNumber
	rNumber = int[rnd[x[100,100]]]
	set AstringN;cnt;rNumber
	loc cnt;1
	; bString
	loc a[cnt,21];1
	; rNumber
]
' sort into 4 groups 2 string 2 number, ascending and descending
sa = assort[AstringS]
sd = dssort[AstringS]
na = ansort[AstringN]
nd = dnSort[AstringN]
' display sorted groups
cnt = 0
[
	cnt = a[cnt,1]
	jmp gt[cnt,20]
	sai = get[sa,cnt]
	sdi = get[sd,cnt]
	nai = get[na,cnt]
	ndi = get[nd,cnt]
	at 20;cnt
	; sai
	at 40;cnt
	; sdi
	at 20;a[cnt,21]
	; nai
	at 40;a[cnt,21]
	; ndi
]
Zzz